home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
C-Communications
/
(c)c4.d64
/
firstdial3 print
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
585b
|
19 lines
0 POKE53280,0:POKE53281,0:PRINTCHR$(14);"[147] [196]UMPER BY [210]ICHARD AND [196]AVID [194]RADLEY"
1 FORI=1TO38:PRINT"-";:NEXTI:PRINT:FORI=1TO5000:NEXTI
2 PRINT"[196]O [217]OU [200]AVE [193] 1525 OR [205][208][211]-801?":GETBS$:IFBS$=""GOTO2
3 IFBS$="Y"THENOPEN4,4,7:Q=1:PRINT"[217]ES!"
4 IFQ<>1THENPRINT"[206]O!"
5 PRINT"[201]S YOUR PRINTER READY?":GETBS$
6 IFBS$=""THEN5
7 IFBS$="Y"THENPRINT"[217]ES!":GOTO9
8 PRINT"[206]O!":END
9 FORI=1TO2500:NEXT:PRINT"[147]"
10 OPEN1,8,3,"FIRSTDIAL3 DOC,S,R"
15 IFQ<>1THENOPEN4,4
20 GET#1,A$
21 IFA$=CHR$(34)THENA$="":GOTO35
25 IFST<>0THENCLOSE1:END
30 PRINTA$;
35 PRINT#4,A$;
40 GOTO20